home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-04 / aie8911.zip / LISTING.5 < prev    next >
Text File  |  1989-08-28  |  421b  |  25 lines
  1.  
  2.  
  3.                      Listing 5
  4.  
  5.                 GENERATED LOOP CODE
  6.  
  7.  
  8. zzz_loop :-
  9.     repeat,
  10.       zzz_loop_hlpr.
  11.  
  12. zzz_loop_hlpr :-
  13.     yes( log_write($More  housing units (y or n) ? $),
  14.          q_means_no,
  15.          do_quit),
  16.     !,
  17.     log_write($ housing unit processed.$),
  18.     log_nl,
  19.     fail.
  20.  
  21. zzz_loop_hlpr :-
  22.     !.
  23.  
  24. ---------------- end of listing -----------------------------------
  25.